home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 37 / 037.d81 / jumble boot (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  636b  |  21 lines
  1. 0 ifx>.then5
  2. 1 poke53280,.:poke53281,.
  3. 2 print"[147]    [208]lease wait while [201] gather my"
  4. 3 print"    deciphering tools..."
  5. 5 ifx=0thenpoke56,150:clr:x=1:load"unpacker",8,1
  6. 6 ifx=1thenx=2:load"jumble.title.shp",8,1
  7. 7 ifx=2thenx=3:load"bload.o",8,1
  8. 10 poke249,224:poke250,204:                 rem screen/color
  9. 20 poke251,0:poke252,64:                    rem shp buffer
  10. 30 poke253,0:poke254,0:                     rem   x-pos,y-pos
  11. 32 print"[147]"
  12. 35 poke53280,1: rem  border to white
  13. 50 sys51456:    rem  unpack normal shp
  14. 60 sys51459:    rem  show screen
  15. 65 f$="koj.prg"
  16. 70 poke780,0:sys65424:loadf$,8
  17. 75 end
  18. 80 poke648,80:print"loadf$,8"
  19. 81 print"sys51459:poke648,4:run"
  20. 83 poke631,13:poke632,13:poke198,2:end
  21.